home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00861_PH-IN 1.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  1.1 KB  |  32 lines
  1. on enterFrame
  2.   global g1erSprChr, g1erSprNav, gMaxBoutons, g1erSprLoc, gBarChron, gScopePh, gPosVideo, gTraduit, gChapAct, gChapPrec, gEtudAct, gEtudPrec, gEtatEtud, gPartie, gPhLabel, gSujet1, gSujet0, gSujAct, gListCodPhy, gListFicPhy, gListSuj, gListCod, gFirst, gListHorPhy, gListDebPhy, gListFinPhy
  3.   curseur(6)
  4.   set gMaxBoutons to 33
  5.   set g1erSprLoc to 22
  6.   set gPhLabel to "PH:RN"
  7.   set gChapPrec to gChapAct
  8.   set gChapAct to "PH"
  9.   set gEtudPrec to gEtudAct
  10.   set gEtudAct to " "
  11.   set gFirst to 0
  12.   set gSujet0 to getAt(gListSuj, 18)
  13.   if (gChapPrec = "PH") and (gEtudPrec = "FI") then
  14.     nothing()
  15.   else
  16.     repeat with i = g1erSprNav + 1 to g1erSprNav + 3
  17.       set the visible of sprite i to 0
  18.     end repeat
  19.     gScopePh(Restore)
  20.     gScopePh(visible, 0)
  21.     repeat with i = g1erSprChr to gMaxBoutons
  22.       puppetSprite(i, 0)
  23.     end repeat
  24.     gBarChron(fleche, 0, 1, 2)
  25.     repeat with i = g1erSprLoc + 5 to g1erSprLoc + 11
  26.       set the visible of sprite i to 0
  27.     end repeat
  28.     set the visible of sprite 3 to 1
  29.   end if
  30.   set the visible of sprite (g1erSprLoc + 2) to 0
  31. end
  32.